home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / pmsx222.zip / samples / testsntx.cmd < prev   
OS/2 REXX Batch file  |  1995-07-16  |  18KB  |  448 lines
  1. /* example REXX script to test PMsndX syntax...no errors should be returned */
  2.  
  3. x=pmsndx(test_mode,no)
  4. x=pmsndx(IGNORE_SYNTAX_ERRORS,YES)
  5.  
  6. x=pmsndx(test_mode,yes)
  7. x=display(tools,yes)
  8. x=display(toolpage,format)
  9. x=display(toolpage,channels)
  10. x=display(toolpage,average)
  11. x=display(toolpage,dupe)
  12. x=display(toolpage,sample)
  13. x=display(toolpage,rate)
  14. x=display(toolpage,speed)
  15. x=display(toolpage,filter)
  16. x=display(toolpage,bandpass)
  17. x=display(toolpage,lowpass)
  18. x=display(toolpage,effect)
  19. x=display(toolpage,echo)
  20. x=display(toolpage,invert)
  21. x=display(toolpage,reverse)
  22. x=display(toolpage,vibro)
  23. x=display(toolpage,volume)
  24. x=display(toolpage,fade)
  25. x=display(toolpage,limit)
  26. x=display(toolpage,balance)
  27. x=display(toolpage,info)
  28. x=display(tools,no)
  29. x=pmsndx(test_mode,no)
  30.  
  31.  
  32. x=pmsndx(test_mode,yes)
  33. x=display(properties,yes)
  34. x=display(proppage,audio)
  35. x=display(proppage,memory)
  36. x=display(proppage,misc)
  37. x=display(proppage,rexx)
  38. x=display(proppage,startup)
  39. x=display(properties,no)
  40. x=pmsndx(test_mode,no)
  41.  
  42. x=pmsndx(TEST_MODE,YES)
  43. x=display(properties,yes)
  44. x=display(open,yes)
  45. x=pmsndx(TEST_MODE,NO)
  46.  
  47. x=pmsndx(test_mode,yes)
  48. data=message(ask,ok,text,"testtext 1",title,"ok noicon application moveable",icon,noicon,mode,application,moveable,yes)
  49. say "message result:" data
  50. data=message(ask,okcancel,text,"test text 2",title,"okcancel iconhand systemmodal moveable",icon,iconhand,mode,system,moveable,yes)
  51. say "message result:" data
  52. data=message(ask,cancel,text,"test text 3",title,"cancel question notmodal notmoveable",icon,question,moveable,yes)
  53. say "message result:" data
  54. data=message(ask,enter,text,"test text 4",title,"enter exclamation notmodal notmoveable",icon,exclamation,moveable,yes)
  55. say "message result:" data
  56. data=message(ask,entercancel,text,"test text 5",title,"entercancel asterisk notmodal notmoveable",icon,asterisk,moveable,yes)
  57. say "message result:" data
  58. data=message(ask,retrycancel,text,"test text 6",title,"retrycancel information notmodal notmoveable",icon,information,moveable,yes)
  59. say "message result:" data
  60. data=message(ask,abortretryignore,text,"test text 7",title,"abortretryignore query notmodal notmoveable",icon,query,moveable,yes)
  61. say "message result:" data
  62. data=message(ask,yesno,text,"test text 8",title,"yesno warning notmodal notmoveable",icon,warning,moveable,yes)
  63. say "message result:" data
  64. data=message(ask,yesnocancel,text,"test text 9",title,"yesnocancel error notmodal notmoveable",icon,error,moveable,yes)
  65. say "message result:" data
  66. x=pmsndx(test_mode,no)
  67.  
  68. data=file(openpath,'d:\WSH\samples')
  69. say "fully qualified path: " data
  70. data=file(savepath,'d:\WSH')
  71. say "fully qualified path: " data
  72.  
  73. filehandle=file(open,'brettapp.wav')
  74. say "file handle: " filehandle
  75. x=pmsndx(test_mode,yes)
  76. x=edit(handle,filehandle,MANIPULATE,1)
  77. x=edit(handle,filehandle,AREA,ENTIRE_SAMPLE)
  78. x=edit(handle,filehandle,COPY)
  79. x=pmsndx(test_mode,no)
  80.  
  81. x=pmsndx(test_mode,yes)
  82. x=audio(volume,80)
  83. x=audio(handle,filehandle,play,SYNC)
  84. x=pmsndx(test_mode,no)
  85.  
  86. x=pmsndx(output,NO)
  87. data=query(handle,filehandle,"file","openpath");
  88. say "FILE OPENPATH:" data
  89. data=query(handle,filehandle,"file","savepath");
  90. say "FILE SAVEPATH:" data
  91. data=query(handle,filehandle,"file","filename");
  92. say "FILE FILENAME:" data
  93. data=query(handle,filehandle,"info","format");
  94. say "INFO FORMAT:" data
  95. data=query(handle,filehandle,"info","datastyle");
  96. say "INFO DATASTYLE:" data
  97. data=query(handle,filehandle,"info","channels");
  98. say "INFO CHANNELS:" data
  99. data=query(handle,filehandle,"info","rate");
  100. say "INFO RATE:" data
  101. data=query(handle,filehandle,"info","datasize");
  102. say "INFO DATASIZE:" data
  103. data=query(handle,filehandle,"info","samples");
  104. say "INFO SAMPLES:" data
  105. data=query(handle,filehandle,"info","time");
  106. say "INFO TIME:" data
  107. data=query(handle,filehandle,"info","memory");
  108. say "INFO MEMORY:" data
  109. data=query(handle,filehandle,"info","comment");
  110. say "INFO COMMENT:" data
  111. data=query(handle,filehandle,"info","byteorder");
  112. say "AUDIO BYTEORDER:" data
  113. data=query(handle,filehandle,"audio","repeat");
  114. say "AUDIO REPEAT:" data
  115. data=query(handle,filehandle,"audio","time");
  116. say "AUDIO TIME:" data
  117. data=query(handle,filehandle,"audio","count");
  118. say "AUDIO COUNT:" data
  119. data=query(handle,filehandle,"audio","memory");
  120. say "AUDIO MEMORY:" data
  121. data=query(handle,filehandle,"audio","input");
  122. say "AUDIO INPUT:" data
  123. data=query(handle,filehandle,"audio","quality");
  124. say "AUDIO QUALITY:" data
  125. data=query(handle,filehandle,"audio","channels");
  126. say "AUDIO CHANNELS:" data
  127. data=query(handle,filehandle,"audio","rate");
  128. say "AUDIO RATE:" data
  129. data=query(handle,filehandle,"audio","overwrite");
  130. say "AUDIO OVERWRITE:" data
  131. data=query(handle,filehandle,"audio","monitor");
  132. say "AUDIO MONITOR:" data
  133. data=query(handle,filehandle,"properties","save_positions");
  134. say "PROPERTIES SAVE_POSITIONS:" data
  135. data=query(handle,filehandle,"properties","save_openpath");
  136. say "PROPERTIES SAVE_OPENPATH:" data
  137. data=query(handle,filehandle,"properties","save_savepath");
  138. say "PROPERTIES SAVE_SAVEPATH:" data
  139. data=query(handle,filehandle,"properties","footnotes");
  140. say "PROPERTIES FOOTNOTES:" dtaa
  141. data=query(handle,filehandle,"properties","memory");
  142. say "PROPERTIES MEMORY:" data
  143. data=query(handle,filehandle,"properties","enable_mmpm");
  144. say "PROPERTIES ENABLE_MMPM:" data
  145. data=query(handle,filehandle,"properties","share_audio");
  146. say "PROPERTIES SHARE_AUDIO:" data
  147. data=query(handle,filehandle,"properties","play_ON_COMMANDLINE_LOAD");
  148. say "PROPERTIES PLAY_ON_COMMANDLINE_LOAD:" data
  149. data=query(handle,filehandle,"properties","exit_after_commandline_play");
  150. say "PROPERTIES EXIT_AFTER_COMMANDLINE_PLAY:" data
  151. data=query(handle,filehandle,"properties","play_16on8");
  152. say "PROPERTIES PLAY_16ON8:" data
  153. data=query(handle,filehandle,"properties","device");
  154. say "PROPERTIES DEVICE:" data
  155. data=query(handle,filehandle,"properties","undo");
  156. say "PROPERTIES UNDO:" data
  157. data=query(handle,filehandle,"properties","ignore_header_style");
  158. say "PROPERTIES IGNORE_HEADER_STYLE:" data
  159. data=query(handle,filehandle,"properties","require_au_header");
  160. say "PROPERTIES REQUIRE_AU_HEADER:" data
  161. data=query(handle,filehandle,"properties","force_ulaw");
  162. say "PROPERTIES FORCE_ULAW:" data
  163. data=query(handle,filehandle,"properties","rexx_display_history");
  164. say "PROPERTIES REXX_DISPLAY_HISTORY:" data
  165. data=query(handle,filehandle,"properties","ini_path");
  166. say "PROPERTIES INI_PATH:" data
  167. data=query(handle,filehandle,"pmsndx","registered");
  168. say "PMSNDX REGISTERED:" data
  169. data=query(handle,filehandle,pmsndx,ignore_syntax_errors)
  170. say "PMSNDX IGNORE_SYNTAX_ERRORS:" data
  171. data=query(handle,filehandle,pmsndx,error_occurred)
  172. say "PMSNDX ERROR_OCCURRED:" data
  173. data=query(handle,filehandle,pmsndx,test_mode)
  174. say "PMSNDX TEST_MODE:" data
  175. data=query(handle,filehandle,pmsndx,output)
  176. say "PMSNDX OUTPUT:" data
  177. data=query(handle,filehandle,pmsndx,close)
  178. say "PMSNDX CLOSE:" data
  179. x=pmsndx(output,yes)
  180.  
  181. x=pmsndx(test_mode,yes)
  182. x=audio(volume,70)
  183. x=audio(record,sync,monitor,yes,input,mic,quality,8,channels,1,rate,11025,overwrite,yes,count,10000)
  184. x=pmsndx(test_mode,no)
  185.  
  186. say "testing pull capability...type anything and then press ENTER"
  187. pull data
  188. say "pull result: " data
  189.  
  190. x=pmsndx(test_mode,yes)
  191. filehandle1=file(open,'d:\wsh\samples\applause.au')
  192. say "file handle: " filehandle1
  193. filehandle2=file(open,'d:\wsh\samples\applause.au',format,au)
  194. say "file handle: " filehandle2
  195. x=audio(handle,filehandle,play,SYNC)
  196. filehandle3=file(open,'\wsh\samples\brettapp.au')
  197. say "file handle: " filehandle3
  198. x=audio(handle,filehandle,play,ASYNC)
  199. x=pmsndx(test_mode,no)
  200.  
  201. x=pmsndx(test_mode,yes)
  202. x=properties(save_positions,no)
  203. x=properties(save_openpath,no)
  204. x=properties(save_savepath,no)
  205. x=properties(memory,auto)
  206. x=properties(enable_mmpm,yes)
  207. x=properties(play_ON_COMMANDLINE_LOAD,no)
  208. x=properties(exit_after_commandline_play,yes)
  209. x=properties(play_16on8,no)
  210. x=properties(device,waveaudio01)
  211. x=properties(undo,yes)
  212. x=properties(ignore_header_style,yes)
  213. x=properties(require_au_header,no)
  214. x=properties(rexx_display_history,256)
  215. x=properties(ini_path,'d:\wsh\pmsndx')
  216. x=pmsndx(TE